(rmail-select-summary): Add a save-excursion.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 6658185005dc5565e74e9cd61d05f1dd3ec63e02..d5b5349d7cbe6941129d288bcdcb8daea90b7b6e 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -170,11 +170,12 @@ Called with region narrowed to unformatted header.")
 (defmacro rmail-select-summary (&rest body)
   (` (progn (if (rmail-summary-displayed)
                (let ((window (selected-window)))
-                 (unwind-protect
-                     (progn
-                       (pop-to-buffer rmail-summary-buffer)
-                       (,@ body))
-                   (select-window window)))
+                 (save-excursion
+                   (unwind-protect
+                       (progn
+                         (pop-to-buffer rmail-summary-buffer)
+                         (,@ body))
+                     (select-window window))))
              (save-excursion
                (set-buffer rmail-summary-buffer)
                (progn (,@ body))))